home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Utilities / Ph 1.1.1 / Lib / SafeStart.a < prev    next >
Encoding:
Text File  |  1991-07-07  |  5.6 KB  |  154 lines  |  [TEXT/MPS ]
  1. ; file SafeStart.a
  2. ;
  3. ;
  4. ;
  5. ; This little piece of 68000 code is an header for Macintosh applications compiled under MPW,
  6. ; that does a clean job of warning the user when running on a 64K ROM machine.
  7. ; 
  8. ; This is usefull because, under MPW 3.2 QR2, the default MPW initialisation code calls
  9. ; Get1NamedResource  blindly, without checking that the machine has at least 128K ROMs.
  10. ; If running on a Macintosh XL, Macintosh 512, or Macintosh 128,  Get1NamedResource  does not
  11. ; exist and  SetPtrSize  gets called instead. This does not always cause a bomb, but it's
  12. ; unadvisable anyway.
  13. ;
  14. ; Another reason to use this piece of code to perform the ROM version check is that many things
  15. ; like  MaxApplZone  don't work any longer under MPW 3.2 QR2; this is why Sample.c and Sample.p
  16. ; as well as MacApp sample applications bomb when compiled with MPW 3.2 QR2 and run on a
  17. ; 64K ROM machine (usually with ID=02)
  18. ;
  19. ; SafeStart's strategy is to define an alternate entry point, which overides the default one;
  20. ; the code does the necessary check, then jumps into the default entry point for C applications.
  21. ; (it's name  %__MAIN  seems hard-coded in the MPW linker)
  22. ;
  23. ; Instruction for use :
  24.  
  25. ; - for application's whose entry point is in Pascal, a little work is needed to convert to
  26. ;   the native C entry point :
  27. ;    - at the beginning of the main program file change
  28. ;           PROGRAM Whatever;
  29. ;      to 
  30. ;           UNIT Whatever;
  31. ;             INTERFACE
  32. ;               PROCEDURE MAIN; {the entry point}
  33. ;             IMPLEMENTATION
  34. ;    - before the mains program's ‘BEGIN’, add :
  35. ;               PROCEDURE MAIN;
  36. ;    - at the end of the main program, before the final ‘END.’ insert
  37. ;               END; {end of MAIN}
  38. ;    - add the option ‘-ma main=MAIN’ to the Link command line
  39. ;          
  40. ; - assemble this file  SafeStart.a  into  SafeStart.a.o , and Link with it
  41. ;   (although not currently required, it is advisable that it be the first link file)
  42. ;
  43. ; - preferably, add an ALRT ressource (ID=13579) and associated DITL, to be displayed when
  44. ;   running on old machines (if it's missing, the application will just return to Finder);
  45. ;   since the Alert is a StopAlert, leave room on the top left for the stop icon;
  46. ;   an example alert, in Rez format, is included at the end of this file.
  47. ;
  48. ; - optionaly, remove checks for 128K ROMs (search ROM85, 28E, machineType, etc…)
  49. ;   from the source code, probably saving more code than SafeStart adds.
  50. ;
  51. ;
  52. ; This is brought to you by François Grieu - RMT & Hello Informatique, France (hence the typos)
  53. ; APPLELINK : FRA0003
  54. ;
  55. ; Although this has been carefully tested (under MPW 3.2 QR2, with at least Sample.c, Sample.p,
  56. ; CPlusTESample, and MacApp 2.0.1  Calc), the author assume no reponsability for possible errors.
  57. ;
  58. ; Feel free to use, redistribute and alter in any way.
  59. ;
  60. ;
  61. ; revision history
  62. ;
  63. ;  1.01   910217   FRG   added explanations on how to use if the application is in Pascal;
  64. ;                        smoothed comments; code unchanged.
  65. ;
  66. ;  1.00   910211   FRG   first release version, for MPW 3.2 QR2
  67. ;
  68. ;————————————————————————————————————————————————————————————————————————————————————————————————
  69. ;
  70. ; assembly options
  71. ;
  72. kALRTidOld    EQU    13579    ; id of the ALRT displayed on old machines; change as needed
  73. ;————————————————————————————————————————————————————————————————————————————————————————————————
  74.         INCLUDE    'SysEqu.a'
  75.         INCLUDE    'Traps.a'
  76. ;————————————————————————————————————————————————————————————————————————————————————————————————
  77. ; this is the entry point; to avoid using too much CODE0001 space, most of the code is placed
  78. ; in the initialisation segment %A5Init, and will get unloaded with _DATAINIT (hopefully)
  79.         SEG    'Main'
  80. %_SafeEntry    MAIN    EXPORT
  81.         IMPORT    (%_SafeCheck,%__MAIN):CODE
  82.         JSR    %_SafeCheck        ; check for 64K ROMs machine
  83.         JMP    %__MAIN            ; do whatever MPW wants
  84.         ENDMAIN                ; end of main procedure %_SafeEntry
  85. ;————————————————————————————————————————————————————————————————————————————————————————————————
  86. ; this is the ‘bulk’ of the code
  87.         SEG    '%A5Init'
  88. %_SafeCheck    PROC    EXPORT
  89.  
  90.         TST.W    ROM85            ; check the kind of machine
  91.         BMI.S    OldROMs            ; -> it's a 64K ROMs machine
  92.         RTS                ; we are safe
  93. ; an old machine; first of all we must initialize the managers
  94. OldROMs        PEA     -4(A5)             ; the usual and safe place for QD globals
  95.         _InitGraf            ; don't flush events (_StopAlert will do)
  96.         _InitFonts
  97.         _InitWindows
  98.         _InitMenus
  99.         _TEInit
  100.         CLR.L    -(A7)    
  101.         _InitDialogs
  102.         _InitCursor            ; make cursor an arrow
  103. ; display the alert
  104. ; NB1: we don't care for the stack since we won't return; this saves 2 instructions
  105. ; NB2: the system is smart enough to just go on if the ALRT is not available
  106. ; NB3: since MultiFinder can't be running the default button will be outlined correctly
  107.         MOVE.W    #kALRTidOld,-(A7)
  108.         CLR.L    -(A7)
  109.         _StopAlert            ; StopAlert(kALRTidOld,nil)
  110. ; exit to Finder
  111.         _ExitToShell
  112.  
  113.         ENDPROC                ; end of procedure %_SafeCheck
  114. ;————————————————————————————————————————————————————————————————————————————————————————————————
  115.         END                ; end of file SafeStart.a
  116.  
  117.  
  118. ; asm "{active}"    # use  SafeStart.a.o  as the first link file
  119.  
  120. ; you can paste the following into your .r file to get an appropriate ALRT and DITL
  121.  
  122. resource 'ALRT' (13579, purgeable) {
  123.     {40, 36, 120, 332},
  124.     13579,
  125.     {    /* array: 4 elements */
  126.         /* [1] */
  127.         OK, visible, sound3,
  128.         /* [2] */
  129.         OK, visible, sound3,
  130.         /* [3] */
  131.         OK, visible, sound3,
  132.         /* [4] */
  133.         OK, visible, sound3
  134.     }
  135. };
  136.  
  137. resource 'DITL' (13579, purgeable) {
  138.     {    /* array DITLarray: 2 elements */
  139.         /* [1] */
  140.         {50, 170, 70, 249},
  141.         Button {
  142.             enabled,
  143.             "Cancel"
  144.         },
  145.         /* [2] */
  146.         {10, 70, 44, 289},
  147.         StaticText {
  148.             disabled,
  149.             "Sorry, but this application needs\n"
  150.             "newer ROMs to run safely."
  151.         }
  152.     }
  153. };
  154.